home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / KAYANYAZ.BAS < prev    next >
BASIC Source File  |  1994-10-31  |  734b  |  27 lines
  1. 10 MH$=STRING$(39,42)
  2. 20 SCREEN 0,0,0:WIDTH 40:KEY OFF:CLS
  3. 30 COLOR 1,7:CLS
  4. 40 PRINT "HAREKETLÿ MESAJ ÜRETÿMÿ"
  5. 50 PRINT MH$:PRINT
  6. 60 PRINT"170 KARAKTERÿN ÜZERÿNDE BÿLGÿ YAZMAYIN"
  7. 70 PRINT"UZUNLUªU (4 DOLU SATIR VEYA DAHA AZ)
  8. 80 PRINT:INPUT "══> ",M$
  9. 90 IF LEN(M$) <=170 THEN 110
  10. 100 PRINT:PRINT"MESAJINIZ ÇOK UZUN TEKRAR GÿRÿNÿZ":GOTO 80
  11. 110 LOCATE 21,1:PRINT"Lütfen ENTER'a basìn..."
  12. 120 K$=INKEY$:IF K$="" THEN 120
  13. 130 CLS
  14. 140 N$=STRING$(40,32)
  15. 150 M$=N$+M$
  16. 160 LOCATE 10,1,0:PRINT MH$
  17. 170 LOCATE 14,1:PRINT MH$
  18. 180 FOR N=2 TO LEN(M$)
  19. 190 P$=MID$(M$,N)+LEFT$(M$,N-1)
  20. 200 LOCATE 12,1
  21. 210 PRINT LEFT$(P$,40)
  22. 220 FOR T=1 TO 600:NEXT T
  23. 230 K$=INKEY$:IF K$="" THEN 250
  24. 240 WIDTH 80:END
  25. 250 NEXT N
  26. 260 GOTO 180
  27.